home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
system
/
pc_dcl.zip
/
READFIL.DCL
< prev
next >
Wrap
Text File
|
1991-09-08
|
306b
|
26 lines
open /read /err=open_error logica 'p1'
loop:
read /err=read_error /end=eof_error logica record
w record
goto loop
eof_error:
close logica
exit
open_error:
!OPEN ERROR
exit
close_error:
!CLOSE ERROR
exit
read_error:
!READ ERROR
exit